5 POKE53272,(PEEK(53272)AND240)OR4:CLR
6 DV=PEEK(186):IFDV<8THENDV=8
10 POKE53280,4 :POKE53281,7:POKE54296,0
12 PS(1)=1318+54272:PS(2)=1505+54272:PS(3)=1527+54272:PS(4)=1720+54272
15 PRINT"[147]"CHR$(142)SPC(8)"                        "
16 PRINT""CHR$(142)SPC(8)"  ALL SMILES MAIN MENU  "
17 PRINT""CHR$(142)SPC(8)"                        "
20 PRINT"               PLAY THE GAME"
23 PRINT"                     [144][221]"
25 PRINT"                     [144][221]"
30 PRINT" RUN GAME TUTORIAL  [144][192][219][192]  RUN MAZE MAKER"
33 PRINT"                     [144][221]"
35 PRINT"                     [221]"
40 PRINT"                   QUIT"
50 PRINT"    USE JOYSTICK IN PORT 2 TO SELECT"            :POKE12288,0
51 PRINT"           OR PRESS 'Q' TO QUIT"
52 GOSUB1000
60 ON CH GOTO100,200,300,40000
70 GOTO5
100 PRINT"[158][147]LOAD"+CHR$(34)+"AS TUT"+CHR$(34)+","DV
110 PRINT"RUN";
120 POKE198,2:POKE631,13:POKE632,13:END
200 PRINT"[158][147]LOAD"+CHR$(34)+"ALL SMILES"+CHR$(34)+","DV
210 PRINT"RUN";
220 POKE198,2:POKE631,13:POKE632,13:END
300 PRINT"[158][147]LOAD"+CHR$(34)+"AS MAZE MAKER"+CHR$(34)+","DV
310 PRINT"RUN";
320 POKE198,2:POKE631,13:POKE632,13:END
1000 CH=1:C9=2
2000 GOSUB3000
2005 GETT$:J=PEEK(56320)
2006 IFT$="Q"THENCH=4:J=111
2007 IFJ=126THENCH=2:C9=1:GOTO2045
2009 IFJ=119THENCH=3:C9=3:GOTO2045
2011 IFJ=125THENCH=4:C9=4:GOTO2045
2013 IFJ=123THENCH=1:C9=2:GOTO2045
2015 IFJ=111THENRETURN
2045 GOSUB3000
2100 FORG=PS(C9)TOPS(C9)+18:POKEG,1:NEXT:GOTO2000
2200 GOSUB3000:FORG=PS(1)TOPS(1)+18:POKEG,1:NEXT:GOTO2005
2300 GOSUB3000:FORG=PS(3)TOPS(3)+18:POKEG,1:NEXT:GOTO2005
2400 GOSUB3000:FORG=PS(4)TOPS(4)+18:POKEG,1:NEXT:GOTO2005
3000 FORG=PS(C9)TOPS(C9)+18:POKEG,2:NEXT:RETURN
9999 END
10000 D=PEEK(186):N$="AS MENU":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D
10001 VERIFYN$,D:END
40000 FORI=8TO29:POKE820+I,I:NEXT:IFDV>8ANDDV<30THENPOKE828,DV:POKE820+DV,8
40010 A$="PRESENTER":GOSUB40030:A$="HELLO CONNECT":GOSUB40030
40020 PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:GOTO40100
40030 FORJ=8TO29:I=PEEK(820+J):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:RETURN
40070 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
40100 POKE53280,14:POKE53281,6:POKE646,14:PRINT"[147]":END
61000 OPEN15,8,15:INPUT#15,EN,EN$,T,S:CLOSE15:PRINTEN,EN$,T,S